home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 72e.bas < prev    next >
BASIC Source File  |  1994-12-20  |  8KB  |  156 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5
  4. 40 PRINT "SUNNY MONDAY" : PRINT "written by TAKAO KUSHIDA"
  5. 50 S$="%CQ8T110" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  6. 60 '
  7. 70 '
  8. 80 '
  9. 90 AL$="@71V9O3L16%R1" : AR$=AL$+"V4R8%L1" : AE$=AL$+"V8%L1"
  10. 100 A1L$=AL$+"> D2&D4&D8 E8&E1"
  11. 110 A1R$=AE$+"  B2&B4&B8>C8&C1"
  12. 120 A1E$=AL$+"> D2&D4&D8 C8&C2<B4>C4"
  13. 130 A1F$=AE$+"  B2&B4&B8 A8&A2 G4 A4"
  14. 140 A2L$=AL$+"> E4&E8 D8&D2 C4&C8D8&D2 Q8"
  15. 150 A2R$=AE$+"> C4&C8<B8&B2 A4&A8B8&B2 Q8"
  16. 160 A2E$=AL$+"> E4&E8 D8&D2 C4&C8<B4 >C8&CD8 Q8"
  17. 170 A2F$=AE$+"> C4&C8<B8&B2 A4&A8 G4  A8&AB8 Q8"
  18. 180 A2G$=AL$+"> E4&E8 D8&D2 C4&C8 D8 &D2  Q8"
  19. 190 A2H$=AE$+"> C4&C8<B8&B2 A4&A8 A#8&A#2 Q8"
  20. 200 A3L$=AL$+"> R4 G2&G4 F#4&F#8 G4&G8 A4 "
  21. 210 A3R$=AE$+"> R4 E2&E4 D4 &D8  E4&E8 F#4"
  22. 220 A3E$=AL$+"> B2&B4&B8>C8&C2 D#32D32&D8C&C8<A8"
  23. 230 A3F$=AE$+"> G2&G4&G8 A8&A2 A&A8      G8&G E8"
  24. 240 A4L$=AL$+"> ARARAARARGAR>C<RAG ARARGARAR>D<AR>E<RAR"
  25. 250 A4R$=AR$+"> ARARAARARGAR>C<RAG ARARGARAR>D<AR>E<R  "
  26. 260 A4E$=AL$+"> G#32A32RGEGRDERCDR<A>CDE DCDR<AR>DD#32ER32GERDRER"
  27. 270 A4F$=AR$+"> G#32A32RGEGRDERCDR<A>CDE DCDR<AR>DD#32ER32GERDR  "
  28. 280 A4G$=AL$+"> (EER)D#32E32ERDERDC<A>D  D#32E32DRCDRD# ERGDR AD#DC"
  29. 290 A4H$=AR$+"> (EER)D#32E32ERDERDC<A>D  D#32E32DRCDRD# ERGDR AD#  "
  30. 300 A4I$=AL$+"  A1&A1"
  31. 310 A4J$=AE$+"  E1&E1"
  32. 320 A5L$=AL$+"> G4&G8 F#8&F#2  &F#2 E4 F#4"
  33. 330 A5R$=AE$+"> D4&D8 D8&D2    &D2  C4 D4 "
  34. 340 A5E$=AL$+"> R4G4&G2  @101<< G4&G8A4&A8>C4"
  35. 350 A5F$=AE$+"> R4D4&D2  @101<< D4&D8E4&E8 G4"
  36. 360 A6L$=AL$+"@101%L3]]   C1 &C2&C8< BA B8A G"
  37. 370 A6R$=AE$+"@101%R3]]  <G1 &G2&G8  GF#G8F#E"
  38. 380 A6E$=AL$+"@101%L3]]  <A4&A8   >D1&D8< A4 B4"
  39. 390 A6F$=AE$+"@101%R3]]  <F#4&F#8  A1&A8  F#4G4"
  40. 400 A6G$=AL$+"@101%L3]]  <A4&A8    F#1&F#8 >D4 A4"
  41. 410 A6H$=AE$+"@101%R3]]  <F#4&F#8  D1&D8    A4>D4"
  42. 420 A6I$=AL$+"@101%L3]]  <A1 "
  43. 430 A6J$=AE$+"@101%R3]]  <F#1"
  44. 440 A7L$=AL$+"@86%L3Q1V5  D8F#8G8>C8<D8F#8G8>D8< D8F#8G8>F#8<D8F#8G8>D8"
  45. 450 A7R$=AE$+"@86%R3Q1V2R5D8F#8G8>C8<D8F#8G8>D8< D8F#8G8>F#8<D8F#8G90  "
  46. 460 '
  47. 470 CL$="@106V9O4L16" : CR$=CL$+"V7"
  48. 480 C1L$=CL$+" RRRR D&D8C RRRR<A4>  RRCC#D&D8C  RERR G4"
  49. 490 C1R$=CR$+" RRRR<A&A8G RRRR E4   RRGR A&A8G >RCRR D4"
  50. 500 C1E$=CL$+" RRRR D&D8C RRRR<A&A8A> RRCC#D&D8C  RERR <A>CD D#"
  51. 510 C1F$=CR$+" RRRR<A&A8G RRRR E&E8E  RRGR A&A8G >RCRR <E GB>C "
  52. 520 C2L$=CL$+" E8F8G2&G8FEF4&F8 D4&D8 E4"
  53. 530 C2R$=CR$+" C8D8E2&E8DCD4&D8<A4&A8>C4"
  54. 540 C2E$=CL$+" E8F8G8E4F8G8 FEF4&F8 D4&D8 E8F8 "
  55. 550 C2F$=CR$+" C8D8E8C4D8E8 DCD4&D8<A4&A8>C8D8 "
  56. 560 C2G$=CL$+" E8 D8C8<A2A>E F8E8F8 D4&D8 E4"
  57. 570 C2H$=CR$+" C8<A8G8 E2E>C D8C8D8<A4&A8>C4"
  58. 580 C3L$=CL$+" G#32A32&A8G&G8 E2  E DC&C8D&D8 D#32E32&E D8&D<A&A8>C8"
  59. 590 C3R$=CR$+" E&E8      D&D8 C2  C<AG&G8A&A8>C8       <A8&A E&E8 G8"
  60. 600 C3E$=CL$+" G#32A32&A8G&G8 E4&E8AG E DC&C8D&D8 D#32E32&E D<GR>D<AR>G8"
  61. 610 C3F$=CR$+" E&E8      D&D8 C4&C8ED C<AG&G8A&A8>C8       <A DR A ER>D8"
  62. 620 C4L$=CL$+"@24V6Q3%R5   R4R8<B>C<B&B8G&G8A2 B>C<B&B8G&G8C8  Q8"
  63. 630 C4R$=CR$+"@24V1Q8%L5R5 R4R8<B>C<B&B8G&G8A2 B>C<B&B8G       Q8" 
  64. 640 C4E$=CL$+"@24V6Q3%R5   R4R8<F#GA&A8R4C R4R8D8A8&AG&G4  Q8"
  65. 650 C4F$=CR$+"@24V1Q8%L5R5 R4R8<F#GA&A8R4C R4R8D8A8&AG&G90 Q8"
  66. 660 C5L$=CL$+"Q5     <DRDR>(D[DR)4 V6<GRGR>(G[GR)4 Q8"
  67. 670 C5R$=CR$+"Q5V2R5 <DRDR>(D[RA)4 V2<GRGR>(R[RD)  Q8"
  68. 680 C5E$=CL$+"Q5     <DRDR>(D[DR)4 Q1@41 V6<CRCR>(C[CR)4 Q8"
  69. 690 C5F$=CR$+"Q5V2R5 <DRDR>(D[RA)4 Q1@41 V2<CRCR>(C[RC)  Q8"
  70. 700 E1$ ="@117V7O3L16 RRE4E4E4E4 F4F4F4F8 Q8"
  71. 710 E2$ ="@33V8O2L16Q1((A>EG<)A>EA<A>EB<A>EAG<) Q8"
  72. 720 E2E$="@33V8O2L16Q1(A>EG<)A>EA<A>EB<A>EAG<(A>EG<)A>DA<ACQ8DL32(EGA>D)"
  73. 730 E3L$="@41V6O3L16Q8%R4  R4DRADRDRD>D8&DD< %L4<AR>CD>D<RADRDRD>D8&DD< "
  74. 740 E3R$="@41V2O3L16Q8%L4R8R4DRADRDRD>D8&DD< %R4<AR>CD>D<RADRDRD>D8     "
  75. 750 B1$= "@28V9 O2L16Q8  A8&AG8EGRRRRRE8G8  >[D&D8C4&C8CRCD4 "
  76. 760 B1E$="@28V9 O2L16Q8  A8&AG&G8A4&A8E8&ED#>[D&D8CRRCCRRC8D8C8 "
  77. 770 B2$= "@28V9 O2L16Q8  A8&AG8&GA4ER D#REG >[D&D8CRCD8&D<EA8G8G#8 Q8"
  78. 780 B2E$="@28V9 O2L16Q8  A8&AG8&GA4ER D#RGA  A#8&A# A#8AA#8 >C4D4 Q8"
  79. 790 B3$ ="@96V9 O1L16Q8 >C1&C2&C8   <A#4B8 "
  80. 800 B3E$="@28V9 O2L16Q8  A&A8G8&GA4ER D#REG >[D&D8CRCDD## ERE8<] EDG8 "
  81. 810 B3F$="@28V9 O2L16Q8  A1&A1"
  82. 820 B4$ ="@88V9 O1L16Q4  DDRRDRCDRDDRDD>D<D  C&C8CCRRR C<A#8&A# B4 "
  83. 830 B4E$="@88V7 O1L16Q8  D<A>D8&D4<DFGA>CDDD F8&FD &D2 AGFC"
  84. 840 B4F$="@88V5 O1L16Q8  D2 V4D2 V3D2 V2D4 V1D4"
  85. 850 '
  86. 860 '
  87. 870 '
  88. 880 P1$= "@1V4 O0L16 GRRRRRRRGGRGRRRG      GRRRRRRRGRRRRRGR"
  89. 890 P2$= "@8V6 O2L16 RRRRGRRRRRRRGRRR      RRRRGRRRRGRRGRV5GG"
  90. 900 Q2$= "@8V6 O2L16 RRRRGRRRRRRRGRRG      RRRRGRRRGGRRGRRR"
  91. 910 P3$= "@5V6 O6L16 CRRRRRCCRRRRRRCC32C32 CRRCRRCCRRCRRCRR"
  92. 920 P4$= "@6V1 O5L16 RRCRRRCRRRCRRRCR      RRCRRRCRRRCRRRCR"
  93. 930 P5$= "@9V11O1L16 CRRRCRRRCRRRCCRR      CRRRCRRRCRRRCRCR"
  94. 940 S5$= "@9V11O1L16 CRRRRRRRRRRRRRRR      RRRRRRRRRRRRRRRR"
  95. 950 PP1$="@3V8 O2L16 RCCRGCRCRRRCGCRE32C32 RCCRGCRCRRRCGCRC"
  96. 960 PP2$="@7V11O8L16 RRRRCRRRRRRRRRRC      CRRRRRRRRRCRRRRR"
  97. 970 PP3$="@3V4 O8L16 CRRCRRCRRCRRCRRC      RRCRRCRRRC32C32RCRRCR"
  98. 980 PL4$="@2V7 O4L16%R5   CRDRDCRCRDC8G8CD  CRDRDCRCRGC8D8C8 Q8"
  99. 990 PR4$="@2V2 O4L16%L5R5 CRDRDCRCRDC8G8CD  CRDRDCRCRGC8D90  Q8"
  100. 1000 BP1$="@6V0 O5L16 R1 (CCCC]) CC]C]C]] %L9C]%R9C] %CC8"
  101. 1010 BP2$="@9V10O2L16 R1 R2 CRR%R8C%L8CRC @4V5G32G32 "
  102. 1020 '
  103. 1030 'PLAY B4F$,A6G$,A6H$,A7L$,A7R$,,P1$,P2$ :END
  104. 1040 'PLAY B4$,C5L$,C5R$,A5L$,A5R$,,P5$ :END
  105. 1050 'PLAY B4$,A5L$,,,,,P5$,BP2$ :END
  106. 1060 'PLAY B1$,A2L$,A2R$,C3L$,C3R$,,P1$,P2$,P3$,P4$,PP1$,PP2$,PP3$ :  END
  107. 1070 'PLAY ,,,,,,,,,PL4$ :  END
  108. 1080 'GOTO 1530
  109. 1090 '
  110. 1100 '
  111. 1110 '
  112. 1120 PLAY B1$ ,A1L$,A1R$,    ,    ,,    ,PP3$
  113. 1130 PLAY B1$ ,A1E$,A1F$,    ,    ,,PP1$,PP3$
  114. 1140 PLAY B1E$,A1L$,A1R$,C1L$,C1R$,,PP1$,PP2$,PP3$
  115. 1150 PLAY B1E$,A1E$,A1F$,C1E$,C1F$,,PP1$,PP2$,PP3$
  116. 1160 PLAY B2$ ,A2L$,A2R$,C2L$,C2R$,E1$,P5$,   ,P4$,PP1$,PP2$,PP3$
  117. 1170 PLAY B2$ ,A2E$,A2F$,C2E$,C2F$,E1$,P5$,   ,P4$,PP1$,PP2$,PP3$
  118. 1180 PLAY B2$ ,A2L$,A2R$,C2L$,C2R$,E1$,P5$,P2$,P3$,P4$,PP1$,PP2$,PP3$
  119. 1190 PLAY B2E$,A2G$,A2H$,C2G$,C2H$,E1$,P5$,P2$,P3$,P4$,PP1$,PP2$,PP3$
  120. 1200 PLAY B3$ ,C1L$,C1R$,    ,    ,,P1$,P2$,P3$,P4$
  121. 1210 PLAY B3$ ,C1L$,C1R$,    ,    ,,P1$,P2$,P3$,P4$
  122. 1220 PLAY B3$ ,C1L$,C1R$,A3L$,A3R$,,P1$,P2$,P3$,P4$
  123. 1230 PLAY B3$ ,C1E$,C1F$,A3E$,A3F$,,P1$,Q2$,P3$,P4$,BP1$
  124. 1240 PLAY B3E$,C3L$,C3R$,A4L$,A4R$,E1$,P5$,P4$,    ,PP3$
  125. 1250 PLAY B3E$,C3E$,C3F$,A4E$,A4F$,E1$,P5$,P4$,    ,PP3$
  126. 1260 PLAY B3E$,C3L$,C3R$,A4L$,A4R$,E1$,P5$,P4$,PP1$,PP3$
  127. 1270 PLAY B3E$,C3E$,C3F$,A4G$,A4H$,E1$,P5$,P4$,PP1$,PP3$
  128. 1280 PLAY B3E$,C1L$,C1R$,A4I$,A4J$,E1$,   ,P2$,P3$
  129. 1290 PLAY B1E$,C1E$,C1F$,    ,    ,E1$,   ,Q2$,P3$
  130. 1300 PLAY B3E$,C1L$,C1R$,C4L$,C4R$,E1$,P5$,P2$,P3$
  131. 1310 PLAY B1E$,C1E$,C1F$,C4L$,C4R$,E1$,P5$,Q2$,P3$
  132. 1320 PLAY B3E$,C1L$,C1R$,C4L$,C4R$,E2$ ,P5$,P2$,P3$,P4$
  133. 1330 PLAY B1E$,C1E$,C1F$,C4L$,C4R$,E2$ ,P5$,P2$,P3$,P4$
  134. 1340 PLAY B3E$,C1L$,C1R$,C4L$,C4R$,E2$ ,P5$,P2$,P3$,P4$
  135. 1350 PLAY B1E$,C1E$,C1F$,C4L$,C4R$,E2E$,P5$,Q2$,P3$,P4$,BP1$
  136. 1360 PLAY B3F$,C4E$,C4F$,    ,    ,E1$,S5$,   ,P3$,P4$,PP3$,PL4$,PR4$
  137. 1370 PLAY     ,C4E$,C4F$,    ,C5R$,E1$,   ,   ,P3$,P4$,PP3$,PL4$,PR4$
  138. 1380 PLAY B4$ ,C4E$,C4F$,C5L$,C5R$,E1$,   ,P2$,P3$,P4$,PP3$,PL4$,PR4$
  139. 1390 PLAY B4$ ,C4L$,C4R$,C5L$,C5R$,E1$,   ,Q2$,P3$,P4$,PP3$,PL4$,PR4$,BP2$
  140. 1400 PLAY B4$ ,A5L$,A5R$,C5L$,C5R$,E1$,P5$,P2$,P4$,PL4$,PR4$
  141. 1410 PLAY B4$ ,A5L$,A5R$,C5L$,C5R$,E1$,P5$,P2$,P4$,PL4$,PR4$
  142. 1420 PLAY B4$ ,A5L$,A5R$,C5L$,C5R$,E1$,P5$,P2$,P4$,PL4$,PR4$
  143. 1430 PLAY B4$ ,A5E$,A5F$,C5E$,C5F$,E1$,S5$,P2$,P4$,PL4$,PR4$,BP1$
  144. 1440 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
  145. 1450 PLAY B4E$,A6E$,A6F$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
  146. 1460 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
  147. 1470 PLAY B4E$,A6G$,A6H$,E3L$,E3R$,,P1$,P2$,P3$,P4$,PP3$,PP1$,PL4$,PR4$
  148. 1480 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
  149. 1490 PLAY B4E$,A6E$,A6F$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
  150. 1500 PLAY B4E$,A6L$,A6R$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
  151. 1510 PLAY B4E$,A6G$,A6H$,E3L$,E3R$,,P2$,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
  152. 1520 PLAY B4F$,A6L$,A6R$,A7L$,A7R$,,P3$,P4$,PP3$,PP2$,PP1$,PL4$,PR4$
  153. 1530 PLAY     ,A6E$,A6F$,A7L$,A7R$,,   ,   ,PP3$,PP2$,PP1$,PL4$,PR4$
  154. 1540 PLAY     ,A6L$,A6R$,A7L$,A7R$,,   ,   ,    ,PL4$,PR4$
  155. 1550 PLAY     ,A6I$,A6J$,A7L$,A7R$
  156.